sub samcoupeclsbl(tknd as ubyte):
  asm
    ld a,(ix+5)
    call $014E
    end asm
  end sub


'$014E - CLSBL (cls)  - a=0 (entire screen)
